10 DIM NA$(100),JO(100):AM=0:JC=0
20 AM=AM+1:READ NA$(AM):IF NA$(AM)<>"***"THEN20
22 AM=AM-1
30 FORI=1TOAM:JO(I)=INT(RND(1)+.5):IFJO(I)=1THENJC=JC+1
31 NEXT
100 POKE53280,12:POKE53281,1:PRINT"[147][144]"
102 GOTO5000
110 C=INT(RND(1)*AM+1):IFJO(C)=1THEN110
120 JO(C)=1:G=INT(RND(0)*4)
125 PRINT"*** "NA$(C)" JOINED #C-64"
128 FORI=1TOG:CG=INT(RND(1)*AM):GF=0
130 IF(JO(CG)=1)AND(CG<>C)THENPRINT"[144]<"NA$(C)"> "NA$(CG):GF=1
134 D=INT(RND(1)*1000):FORDV=1TOD:NEXTDV
135 R=INT(RND(1)*50):IF(R>35)AND(GF=1)THENPRINT"[144]<"NA$(CG)"> "NA$(C)
138 D=INT(RND(1)*2200):FORDV=1TOD:NEXTDV
140 NEXT
150 D=INT(RND(1)*3000):FORDV=1TOD:NEXTDV
160 O=INT(RND(1)*50):IFO<25THEN200
170 C=INT(RND(1)*AM):IFJO(C)=0THEN170
180 JO(C)=0:PRINT"*** "NA$(C)" HAS LEFT #C-64"
200 D=INT(RND(1)*3000):FORDV=1TOD:NEXTDV
210 L=INT(RND(1)*50):IFL<42THEN250
220 C=INT(RND(1)*AM):IFJO(C)=0THEN220
230 PRINT"[144]<"NA$(C)"> POOP!"
250 D=INT(RND(1)*1000):FORDV=1TOD:NEXTDV
260 L=INT(RND(1)*50):IFL<30THEN300
270 C=INT(RND(1)*AM):IFJO(C)=0THEN300
280 CG=INT(RND(1)*AM):IFJO(CG)=0THEN280
285 IF C=CGTHEN300
290 PRINT"*** "NA$(C)" SETS MODE +O TO "NA$(CG)
300 D=INT(RND(1)*1000):FORDV=1TOD:NEXTDV
310 L=INT(RND(1)*50):IFL<35THEN350
320 C=INT(RND(1)*AM):IFJO(C)=0THEN350
330 CG=INT(RND(1)*AM):IFJO(CG)=1THEN330
340 PRINT"[144]<"NA$(C)"> !SEEN "NA$(CG)
342 CG=INT(RND(1)*AM):IFJO(CG)=0THEN342
343 D=INT(RND(1)*500):FORDV=1TOD:NEXTDV
344 PRINT"[144]<"NA$(CG)"> [195]OMMODORE IS NOT HERE!"
345 D=INT(RND(1)*500):FORDV=1TOD:NEXTDV
346 PRINT"[144]<"NA$(C)"> [193]H, OKAY! :)"
350 GOTO110
5000 PRINT"[201][210][195]-[211]IMULATOR [214]1.0"
5010 PRINT"BY [206]INJA/[212]HE [196]REAMS IN 2001":PRINT
5020 INPUT"[217]OUR HANDLE (MAX. 9 CHARS) ";N$:JO(AM+1)=1:NA$(AM+1)=LEFT$(N$,9)
5030 PRINT"[147]*** "NA$(AM+1)" JOINED #C-64":GOTO110
5040 PRINT"*** "NA$(C)" JOINED #C-64"
10000 DATA "[218]ER0-[216]","[211]OUN[196]EMON","[199]RAHAM","[206]INJA[196][210][205]","[215][214][204][164][216]E[206]","[206]UCLEUS"
10010 DATA "[202]AILBIRD","[196]A[198]UNK","[202]AZZCAT","[214]ENGENCE","[194]LENDER","[211]PECTATOR"
10020 DATA "[196]EEKAY","[205]AC[164][196][205][193]","[212]HBL-[208][212][214]","[197]UVEL[206]OKO","[202]EFF[195]REST","[212][194][194]","[193][205][202]"
10030 DATA "[195]HOTAIRE","[208]ATER[208]I","[197]LECTRIC","[201]OPOP","[212]APER[164]3AD","[200]0[204][204]0[215][205][193][206]"
10040 DATA "[195]0UNT[218]3R0","[195]UPID","[203]RILL","[212]ECMO","[196]EADBEAT","[199]ILLIGAN"
10050 DATA "[195]HAOT^[198][210]","WHK","[215]YNDEX","[207]SWALD-","[206]ATE/[196][193][195]","[202]ARI[218][218][218]","[195]REAM[196]"
10060 DATA "[194]RITE[204]ITE","[212]WOFLOWER","[195]YBER[194]RN","[216]BOW","[194]OOKER","[194]IZK[196][205][199]"
10070 DATA "[196][202][194]","[210]EYN","[210]YAN","[215]A[196]","[198]UNKHAUS","[194]ARFLY[197][216][212]","[199]RENDEL-[194]"
10080 DATA "[208]AZUZU","[194]OMBE","ANONYM","C[217][195][204][207][206][197]","R[193][217][196][197][206]0","X[201][201][201][[215][207][215]]","[211]RX"
10090 DATA "[210]AVEN","[199]ARVIN","6[210]6","[193]RMAN[164][216]E[206]","GROEPAZ","[211]LATOR"
19999 DATA "***"